inherited fmKPPMessage: TfmKPPMessage
  Left = 252
  Top = 218
  Width = 947
  Height = 531
  Caption = 'fmKPPMessage'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 470
    Width = 939
  end
  inherited Panel1: TPanel
    Width = 939
    inherited BitBtn1: TBitBtn
      Left = 769
    end
    inherited BitBtn2: TBitBtn
      Left = 857
    end
  end
  object ToolBar1: TToolBar [2]
    Left = 0
    Top = 45
    Width = 939
    Height = 33
    AutoSize = True
    BorderWidth = 2
    EdgeOuter = esNone
    Images = DMInv.ilActive
    TabOrder = 2
    TabStop = True
    Transparent = True
    object tbInsertK: TToolButton
      Left = 0
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1091#1089#1083#1091#1075#1091' '#1074' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082
      ImageIndex = 30
      ParentShowHint = False
      ShowHint = True
      OnClick = tbInsertKClick
    end
    object tbDeleteK: TToolButton
      Left = 23
      Top = 2
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1091#1089#1083#1091#1075#1091' '#1080#1079' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082#1072
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDeleteKClick
    end
  end
  object dbgKPPmes: TcxGrid [3]
    Left = 0
    Top = 78
    Width = 939
    Height = 392
    Align = alClient
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object tvKPPMes: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvKPPMesKMMESSAGE: TcxGridDBColumn
        Caption = #1057#1086#1086#1073#1097#1077#1085#1080#1077
        DataBinding.FieldName = 'KMMESSAGE'
        Width = 255
      end
      object tvKPPMesKMDATEBEGIN: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
        DataBinding.FieldName = 'KMDATEBEGIN'
        PropertiesClassName = 'TcxDateEditProperties'
        Properties.InputKind = ikStandard
        Properties.WeekNumbers = True
        Width = 113
      end
      object tvKPPMesKMDATEEND: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
        DataBinding.FieldName = 'KMDATEEND'
        PropertiesClassName = 'TcxDateEditProperties'
        Properties.InputKind = ikStandard
        Properties.WeekNumbers = True
        Width = 114
      end
      object tvKPPMesKMUSLOVIE: TcxGridDBColumn
        Caption = #1059#1089#1083#1086#1074#1080#1077' '#1087#1086#1082#1072#1079#1072' '#1089#1086#1086#1073#1097#1077#1085#1080#1103
        DataBinding.FieldName = 'KMUSLOVIE'
        PropertiesClassName = 'TcxCheckComboBoxProperties'
        Properties.DropDownRows = 20
        Properties.EditValueFormat = cvfStatesString
        Properties.Items = <
          item
            Description = #1054#1089#1085#1086#1074#1085#1072#1103
          end
          item
            Description = #1042#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
          end
          item
            Description = #1056#1072#1079#1086#1074#1099#1077' '#1080' '#1076#1086#1087'.'
          end>
        Width = 192
      end
      object tvKPPMesKMDEJSTVIE: TcxGridDBColumn
        Caption = #1047#1072#1087#1088#1077#1090' '#1074#1093#1086#1076#1072
        DataBinding.FieldName = 'KMDEJSTVIE'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 367
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvKPPMes
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qKPPMessages
  end
  object qKPPMessages: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qKPPMessagesAfterInsert
    BeforeOpen = qKPPMessagesBeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT KM.*'
      'FROM KPP_MESSAGES KM'
      'WHERE KM.PID = :pid')
    UpdateObject = quKPPMessages
    GeneratorField.Field = 'KMID'
    GeneratorField.Generator = 'GEN_KPP_MESSAGES_ID'
    Left = 264
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end>
    object qKPPMessagesKMID: TIntegerField
      FieldName = 'KMID'
      Origin = '"KPP_MESSAGES"."KMID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qKPPMessagesPID: TIntegerField
      FieldName = 'PID'
      Origin = '"KPP_MESSAGES"."PID"'
      Required = True
    end
    object qKPPMessagesKMMESSAGE: TIBStringField
      FieldName = 'KMMESSAGE'
      Origin = '"KPP_MESSAGES"."KMMESSAGE"'
      Size = 2048
    end
    object qKPPMessagesKMDATEBEGIN: TDateTimeField
      FieldName = 'KMDATEBEGIN'
      Origin = '"KPP_MESSAGES"."KMDATEBEGIN"'
    end
    object qKPPMessagesKMDATEEND: TDateTimeField
      FieldName = 'KMDATEEND'
      Origin = '"KPP_MESSAGES"."KMDATEEND"'
    end
    object qKPPMessagesKMUSLOVIE: TIBStringField
      FieldName = 'KMUSLOVIE'
      Origin = '"KPP_MESSAGES"."KMUSLOVIE"'
      Size = 40
    end
    object qKPPMessagesKMDEJSTVIE: TIntegerField
      FieldName = 'KMDEJSTVIE'
      Origin = '"KPP_MESSAGES"."KMDEJSTVIE"'
    end
    object qKPPMessagesKMUSERENTER: TIBStringField
      FieldName = 'KMUSERENTER'
      Origin = '"KPP_MESSAGES"."KMUSERENTER"'
      Size = 40
    end
    object qKPPMessagesKMTIMEENTER: TDateTimeField
      FieldName = 'KMTIMEENTER'
      Origin = '"KPP_MESSAGES"."KMTIMEENTER"'
    end
    object qKPPMessagesKMUSEREDIT: TIBStringField
      FieldName = 'KMUSEREDIT'
      Origin = '"KPP_MESSAGES"."KMUSEREDIT"'
      Size = 40
    end
    object qKPPMessagesKMTIMEEDIT: TDateTimeField
      FieldName = 'KMTIMEEDIT'
      Origin = '"KPP_MESSAGES"."KMTIMEEDIT"'
    end
  end
  object quKPPMessages: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  KMID,'
      '  PID,'
      '  KMMESSAGE,'
      '  KMDATEBEGIN,'
      '  KMDATEEND,'
      '  KMUSLOVIE,'
      '  KMDEJSTVIE,'
      '  KMUSERENTER,'
      '  KMTIMEENTER,'
      '  KMUSEREDIT,'
      '  KMTIMEEDIT'
      'from KPP_MESSAGES '
      'where'
      '  KMID = :KMID')
    ModifySQL.Strings = (
      'update KPP_MESSAGES'
      'set'
      '  KMDATEBEGIN = :KMDATEBEGIN,'
      '  KMDATEEND = :KMDATEEND,'
      '  KMDEJSTVIE = :KMDEJSTVIE,'
      '  KMID = :KMID,'
      '  KMMESSAGE = :KMMESSAGE,'
      '  KMTIMEEDIT = :KMTIMEEDIT,'
      '  KMTIMEENTER = :KMTIMEENTER,'
      '  KMUSEREDIT = :KMUSEREDIT,'
      '  KMUSERENTER = :KMUSERENTER,'
      '  KMUSLOVIE = :KMUSLOVIE,'
      '  PID = :PID'
      'where'
      '  KMID = :OLD_KMID')
    InsertSQL.Strings = (
      'insert into KPP_MESSAGES'
      
        '  (KMDATEBEGIN, KMDATEEND, KMDEJSTVIE, KMID, KMMESSAGE, KMTIMEED' +
        'IT, KMTIMEENTER, '
      '   KMUSEREDIT, KMUSERENTER, KMUSLOVIE, PID)'
      'values'
      
        '  (:KMDATEBEGIN, :KMDATEEND, :KMDEJSTVIE, :KMID, :KMMESSAGE, :KM' +
        'TIMEEDIT, '
      '   :KMTIMEENTER, :KMUSEREDIT, :KMUSERENTER, :KMUSLOVIE, :PID)')
    DeleteSQL.Strings = (
      'delete from KPP_MESSAGES'
      'where'
      '  KMID = :OLD_KMID')
    Left = 296
    Top = 56
  end
end
